home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 November / Chip Kasım 2001.iso / prog / amapi3d / data1.cab / Common / MACROS / INVCURV.TCL < prev    next >
Encoding:
Text File  |  2000-08-11  |  431 b   |  23 lines
  1. #SPEC -realnameid 0
  2.  
  3. # messages table
  4. #@@%000@@FR@@Inverser une courbe@@
  5. #@@%000@@US@@Invert a curve@@
  6.  
  7. # no shape
  8. if {[llength [.amapi scene]] == 0} return
  9.  
  10. # it's not a curve
  11. newshape shape [.amapi current]
  12. if {[shape -curve] == 0} return
  13.  
  14. # make a copy of curve
  15. newshape result [move -copy -shape [shape -ref] -move {0 0 0}]
  16.  
  17. # invert curve
  18. result -invert
  19.  
  20. shape -checkout
  21. result -checkout
  22. result -checkin
  23.